home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 9 / FM Towns Free Software Collection 9.iso / t_os / data / fapx / fapxsetc.plp < prev    next >
Text File  |  1994-11-16  |  15KB  |  450 lines
  1. /*    天気予報気の地域・都市名の指定    */
  2. %setWTHR{
  3.     var    Area    [6];
  4.     var    City    [6];
  5.     case(area,
  6.         {1},{    Area:={北海道};
  7.             case(city,
  8.                 {1},{City:={札　幌}},
  9.                 ,{City:={未設定};city:={}})},
  10.         {2},{    Area:={東　北};
  11.             case(city,
  12.                 {1},{City:={青　森}},{2},{City:={盛　岡}},
  13.                 {3},{City:={仙　台}},{4},{City:={秋　田}},
  14.                 {5},{City:={山　形}},{6},{City:={福　島}},
  15.                 ,{City:={未設定};city:={}})},
  16.         {3},{    Area:={関　東};
  17.             case(city,
  18.                 {1},{City:={水　戸}},{2},{City:={宇都宮}},
  19.                 {3},{City:={前　橋}},{4},{City:={浦　和}},
  20.                 {5},{City:={千　葉}},{6},{City:={東　京}},
  21.                 {7},{City:={横　浜}},
  22.             ,{City:={未設定};city:={}})},
  23.         {4},{    Area:={中　部};
  24.             case(city,
  25.                 {1},{City:={新　潟}},{2},{City:={富　山}},
  26.                 {3},{City:={金　沢}},{4},{City:={福　井}},
  27.                 {5},{City:={甲　府}},{6},{City:={長　野}},
  28.                 {7},{City:={岐　阜}},{8},{City:={静　岡}},
  29.                 {9},{City:={名古屋}},
  30.                 ,{City:={未設定};city:={}})},
  31.         {5},{    Area:={近　畿};
  32.             case(city,
  33.                 {1},{City:={大　津}},{2},{City:={　津　}},
  34.                 {3},{City:={京　都}},{4},{City:={大　阪}},
  35.                 {5},{City:={神　戸}},{6},{City:={奈　良}},
  36.                 {7},{City:={和歌山}},
  37.                 ,{City:={未設定};city:={}})},
  38.         {6},{    Area:={中　国};
  39.             case(city,
  40.                 {1},{City:={鳥　取}},{2},{City:={松　江}},
  41.                 {3},{City:={岡　山}},{4},{City:={広　島}},
  42.                 {5},{City:={山　口}},
  43.                 ,{City:={未設定};city:={}})},
  44.         {7},{    Area:={四　国};
  45.             case(city,
  46.                 {1},{City:={徳　島}},{2},{City:={高　松}},
  47.                 {3},{City:={松　山}},{4},{City:={高　知}},
  48.                 ,{City:={未設定};city:={}})},
  49.         {8},{    Area:={九　州};
  50.             case(city,
  51.                 {1},{City:={福　岡}},{2},{City:={佐　賀}},
  52.                 {3},{City:={長　崎}},{4},{City:={熊　本}},
  53.                 {5},{City:={大　分}},{6},{City:={宮　崎}},
  54.                 {7},{City:={鹿児島}},
  55.                 ,{City:={未設定};city:={}})},
  56.         {9},{    Area:={沖　縄};
  57.             case(city,
  58.                 {1},{City:={那　覇}},
  59.                 ,{City:={未設定};city:={}})}
  60.         );
  61.  
  62.     select({地方を選択してください  現在の設定は}|Area|{です},
  63.         Wtime4,,
  64.         {北海道},
  65.         {area:={1};city:={1}},
  66.         {東  北},
  67.         {
  68.         case(area={2},{No},{city:={};City:={未設定}});
  69.         area:={2};
  70.         select({都市を選択してください  現在の設定は}|City|{です},
  71.             Wtime4,,
  72.             {青  森},{city:={1}},{盛  岡},{city:={2}},
  73.             {仙  台},{city:={3}},{秋  田},{city:={4}},
  74.             {山  形},{city:={5}},{福  島},{city:={6}})
  75.         },
  76.         {関  東},
  77.         {
  78.         case(area={3},{No},{city:={};City:={未設定}});
  79.         area:={3};
  80.         select({都市を選択してください  現在の設定は}|City|{です},
  81.             Wtime4,{city:={}},
  82.             {水  戸},{city:={1}},{宇都宮},{city:={2}},
  83.             {前  橋},{city:={3}},{浦  和},{city:={4}},
  84.             {千  葉},{city:={5}},{東  京},{city:={6}},
  85.             {横  浜},{city:={7}},{未設定},{city:={}})
  86.         },
  87.         {中  部},
  88.         {
  89.         case(area={4},{No},{city:={};City:={未設定}});
  90.         area:={4};
  91.         select({都市を選択してください  現在の設定は}|City|{です},
  92.             Wtime4,{city:={}},
  93.             {新  潟},{city:={1}},{富  山},{city:={2}},
  94.             {金  沢},{city:={3}},{福  井},{city:={4}},
  95.             {甲  府},{city:={5}},{長  野},{city:={6}},
  96.             {岐  阜},{city:={7}},{静  岡},{city:={8}},
  97.             {名古屋},{city:={9}},{未設定},{city:={}})
  98.         },
  99.         {近  畿},
  100.         {
  101.         case(area={5},{No},{city:={};City:={未設定}});
  102.         area:={5};
  103.         select({都市を選択してください  現在の設定は}|City|{です},
  104.             Wtime4,{city:={}},
  105.             {大  津},{city:={1}},{  津  },{city:={2}},
  106.             {京  都},{city:={3}},{大  阪},{city:={4}},
  107.             {神  戸},{city:={5}},{奈  良},{city:={6}},
  108.             {和歌山},{city:={7}},{未設定},{city:={}})
  109.         },
  110.         {中  国},
  111.         {
  112.         case(area={6},{No},{city:={};City:={未設定}});
  113.         area:={6};
  114.         select({都市を選択してください  現在の設定は}|City|{です},
  115.             Wtime4,{city:={}},
  116.             {鳥  取},{city:={1}},{松  江},{city:={2}},
  117.             {岡  山},{city:={3}},{広  島},{city:={4}},
  118.             {山  口},{city:={5}},{未設定},{city:={}})
  119.         },
  120.         {四  国},
  121.         {
  122.         case(area={7},{No},{city:={};City:={未設定}});
  123.         area:={7};
  124.         select({都市を選択してください  現在の設定は}|City|{です},
  125.             Wtime4,{city:={}},
  126.             {徳  島},{city:={1}},{高  松},{city:={2}},
  127.             {松  山},{city:={3}},{高  知},{city:={4}},
  128.             {未設定},{city:={}})
  129.         },
  130.         {九  州},
  131.         {
  132.         case(area={8},{No},{city:={};City:={未設定}});
  133.         area:={8};
  134.         select({都市を選択してください  現在の設定は}|City|{です},
  135.             Wtime4,{city:={}},
  136.             {福  岡},{city:={1}},{佐  賀},{city:={2}},
  137.             {長  崎},{city:={3}},{熊  本},{city:={4}},
  138.             {大  分},{city:={5}},{宮  崎},{city:={6}},
  139.             {鹿児島},{city:={7}},{未設定},{city:={}})
  140.         },
  141.         {沖  縄},
  142.         {area:={9};city:={1}}
  143.         );
  144.     };
  145.  
  146. /*    メール処理の詳細設定    */
  147. %setMAIL{
  148.     loop    ({
  149.         footnote({通信処理の初期値を設定してください});
  150.         SNDMSG({erande_f.snd});
  151.         %a @plane(
  152.             {rメールのダウンロード   /する/ﾃｷｽﾄのみ/しない\n}|
  153.             {rﾊﾞｲﾅﾘﾒｰﾙのﾀﾞｳﾝﾛｰﾄﾞ     /終日/割引時間\n}|
  154.             {r既読メールの削除       /する/しない　\n}|
  155.             {rメール送信簿の確認     /する/しない　\n}|
  156.             {r送信済メールの保存     /する/しない  \n}|
  157.             {rメール送信最大行数拡大 /する/しない  \n}|
  158.             {s                       / 設定 },
  159.             mail,bmaildwn,maildel,chksdl,mailback,mailexp);
  160.         mail    :=@head(@getline(a,1,1),{\n});
  161.         bmaildwn:=@head(@getline(a,2,1),{\n});
  162.         maildel    :=@head(@getline(a,3,1),{\n});
  163.         chksdl    :=@head(@getline(a,4,1),{\n});
  164.         mailback:=@head(@getline(a,5,1),{\n});
  165.         mailexp    :=@head(@getline(a,6,1),{\n});
  166.         %ok      @head(@getline(a,7,1),{\n});
  167.         im({No});
  168.         });
  169.     };
  170.  
  171. /*    アクセス方法の詳細設定    */
  172. %setACCESS{
  173.     loop    ({
  174.         footnote({通信処理の初期値を設定してください});
  175.         SNDMSG({erande_f.snd});
  176.         %a @plane(
  177.             {rリダイアル回数         /5/10/30/無制限\n}|
  178.             {rアクセスポイント種別   /ROAD3･4/ROAD1･2 \n}|
  179.             {rROAD3･4通信速度        /4800/9600/19200 \n}|
  180.             {t通信開始指定時刻[HH:MM]/xxxxx\n}|
  181.             {t割引通信終了時刻[HH:MM]/xxxxx\n}|
  182.             {r最終ﾛｸﾞｱｳﾄ日時ﾁｪｯｸ     /する/しない\n}|
  183.             {rNIFTYによる時刻合わせ  /する/しない\n}|
  184.             {s                       / 設定 },
  185.             redial,ap3,rd3speed,access,access2,lastchk,settime);
  186.         redial:=@head(@getline(a,1,1),{\n});
  187.         ap3:=    @head(@getline(a,2,1),{\n});
  188.         rd3speed:=@head(@getline(a,3,1),{\n});
  189.         access:=@head(@getline(a,4,1),{\n});
  190.         access2:=@head(@getline(a,5,1),{\n});
  191.         lastchk:=@head(@getline(a,6,1),{\n});
  192.         settime:=@head(@getline(a,7,1),{\n});
  193.         %ok    @head(@getline(a,8,1),{\n});
  194.         im({No});
  195.         });
  196.     };
  197.  
  198. /*    その他の詳細設定    */
  199. %setOTHER{
  200.     loop    ({
  201.         footnote({その他の通信処理の初期値を設定してください});
  202.         SNDMSG({erande_f.snd});
  203.         %a @plane(
  204.             {rｱｯﾌﾟﾛｰﾄﾞ実行ﾀｲﾐﾝｸﾞ        /最初/最後/しない  \n}|
  205.             {rﾀﾞｳﾝﾛｰﾄﾞ実行ﾀｲﾐﾝｸﾞ        /最初/最後/しない  \n}|
  206. /*            {rｱｯﾌﾟﾛｰﾄﾞ実行ﾀｲﾐﾝｸﾞ/最初(巡回前)}|
  207.                         {/最後(巡回後)/しない\n}|
  208.             {rﾀﾞｳﾝﾛｰﾄﾞ実行ﾀｲﾐﾝｸﾞ/最初(巡回内)/全体の最後/しない\n}|
  209. */
  210.             {rＰＡＤ処理     /巡回のみ/最初/最後/しない　\n}|
  211.             {r天気予報(NAPLPS)の確認    /する/しない　\n}|
  212.             {r今週のおしらせを読む /強制/オート/項目/しない\n}|
  213.             {r課金情報の確認 /する/詳細情報/しない/するかも\n}|
  214.             {r自動通信終了後/FAPX終了/MOPT終了/電源切断/FAPX継続\n}|
  215.             {s                       / 設定 },
  216.             upt,dnt,pad,weather,readnew,chkbill,fapxend);
  217.         upt:=    @head(@getline(a,1,1),{\n});
  218.         dnt:=    @head(@getline(a,2,1),{\n});
  219.         pad:=    @head(@getline(a,3,1),{\n});
  220.         weather:=@head(@getline(a,4,1),{\n});
  221.         readnew:=@head(@getline(a,5,1),{\n});
  222.         chkbill:=@head(@getline(a,6,1),{\n});
  223.         fapxend:=@head(@getline(a,7,1),{\n});
  224.         %ok    @head(@getline(a,8,1),{\n});
  225.         im({No});
  226.         });
  227.     };
  228.  
  229. /*    通信初期値の設定    */
  230. %setPARM{
  231.     var    area    [1];
  232.     var    city    [1];
  233.     var    redial    [2];
  234.     var    ap3    [2];
  235.     var    rd3speed[5];
  236.     var    limit    [2];
  237.     var    liblist    [2];
  238.     var    exlib    [2];
  239.     var    rtnlst    [2];
  240.     var    mail    [2];
  241.     var    maildel    [2];
  242.     var    chksdl    [2];
  243.     var    mailback[2];
  244.     var    mailexp    [2];
  245.     var    bmaildwn[2];
  246.     var    pad    [2];
  247.     var    readnew    [2];
  248.     var    weather    [2];
  249.     var    fmnews    [2];
  250.     var    chkbill    [2];
  251.     var    upt    [2];
  252.     var    dnt    [2];
  253.     var    ust2    [2];
  254.     var    guest    [2];
  255.     var    mfrm    [2];
  256.     var    topon    [2];
  257.     var    access    [5];
  258.     var    access2    [5];
  259.     var    freetime[4];
  260.     var    Frec      [2];
  261.     var    lastchk    [2];
  262.     var    settime    [2];
  263.     var    fapxend    [2];
  264.     area:=AREA;
  265.     city:=CITY;
  266.     redial:=@case(REDIAL,{5},{im({ 1})},{10},{im({ 2})},
  267.             {30},{im({ 3})},,{im({ 4})});
  268.     ap3:=    @YesNo(AP3,{2});
  269.     rd3speed:=@case(RD3SPEED,{4800},{im({ 1})},{9600},{im({ 2})},
  270.             {19200},{im({ 3})},,{im({ 1})});
  271.     limit:=    @case(LIMIT,{200},{im({ 1})},{500},{im({ 2})},
  272.             {1000},{im({ 3})},,{im({ 4})});
  273.     liblist:=@YesNo(LIBLIST,{ 2});
  274.     exlib:=    @case(EXLIB,{Yes},{im({ 1})},{Sea},{im({ 2})},
  275.             {No},{im({ 3})},,{im({ 3})});
  276.     rtnlst:=@YesNo(RTNLST,{ 2});
  277.     pad:=    @case    (PAD,
  278.             {forum},{im({ 1})},{first},{im({ 2})},
  279.             {last},{im({ 3})},{None},{im({ 4})},,{im({ 4})});
  280.     readnew:=@case    (READNEW,
  281.             {Yes},{im({ 1})},{New},{im({ 2})},{Idx},{im({ 3})},
  282.             {No},{im({ 4})},,{im({ 4})});
  283.     weather:=@YesNo(WEATHER,{ 2});
  284.     fmnews:=@YesNo(FMNEWS,{ 2});
  285.     chkbill:=@case(CHKBILL,{Yes},{im({ 1})},{Detail},{im({ 2})},
  286.             {No},{im({ 3})},{Sometimes},{im({ 4})},,{im({ 3})});
  287.     upt:=    @case(UPT,{first},{im({ 1})},{last},{im({ 2})},
  288.             {No},{im({ 3})},,{im({ 1})});
  289.     dnt:=    @case(DNT,{first},{im({ 1})},{last},{im({ 2})},
  290.             {No},{im({ 3})},,{im({ 1})});
  291.     ust2:=    @case(UST2CMD,{Yes},{im({ 1})},{No},{im({ 2})},
  292.             {Rtc},{im({ 3})},,{im({ 2})});
  293.     guest:=    @case(GUESTCMD,{Yes},{im({ 1})},{No},{im({ 2})},
  294.             {Owner},{im({ 3})},,{im({ 2})});
  295.     mfrm:=    @YesNo(MFRM,{ 1});
  296.     topon:=@YesNo(TOPON,{ 1});
  297.     access:=ACCESS;
  298.     access2:=ACCESS2;
  299.     freetime:=FREETIME;
  300.     fapxend:=@case(FAPXEND,{stopfapx},{im({ 1})},{stopmop},{im({ 2})},
  301.             {poweroff},{im({ 3})},{continue},{im({ 4})},
  302.             ,{im({ 4})});
  303.     maildel    :=@YesNo(MAILDEL,{ 2});
  304.     bmaildwn:=@case(BMAILDWN,{All},{im({ 1})},{Discount},{im({ 2})},
  305.             ,{im({ 1})});
  306.     chksdl    :=@YesNo(CHKSDL,{ 2});
  307.     mailback:=@YesNo(MAILBACK,{ 2});
  308.     mailexp    :=@YesNo(MAILEXP,{ 2});
  309.     lastchk    :=@YesNo(LASTCHK,{ 1});
  310.     settime    :=@YesNo(SETTIME,{ 1});
  311.     mail    :=@case    (MAILDOWN,
  312.             {Yes},{im({ 1})},{TextOnly},{im({ 2})},
  313.             {No},{im({ 3})},,{im({ 1})});
  314.     Frec:=    @case    (FREC,
  315.             {Yes},{im({ 1})},{No},{im({ 2})},,{im({ 3})});
  316.     loop    ({
  317.         footnote({通信処理の初期値を設定してください});
  318.         SNDMSG({erande_f.snd});
  319.         %a @plane(
  320.             {rMREADｺﾏﾝﾄﾞのLIMITﾊﾟﾗﾒｰﾀ/200/500/1000/無制限\n}|
  321.             {r未読なし時ﾃﾞｰﾀﾗｲﾌﾞﾗﾘﾘｽﾄ/する/しない  \n}|
  322.             {rﾃﾞｰﾀﾗｲﾌﾞﾗﾘﾘｽﾄのﾏｰｼﾞ    /DIR/SEArch/しない  \n}|
  323.             {rＲＴＮリストダウン     /する/しない  \n}|
  324.             {rＦＭ情報の確認         /する/しない  \n}|
  325.             {rUST2ｺﾏﾝﾄﾞ実行          /する/しない/するかも\n}|
  326.             {rGUESTｺﾏﾝﾄﾞ実行         /する/しない/自設置HP\n}|
  327.             {rMYFORUM.LOGの取得      /する/しない  \n}|
  328.             {rNIFTYのTOPMENUの表示   /する/しない  \n}|
  329.             {t自由行動の制限時間[MIN]/xxxx\n}|
  330.             {r自由行動のログの記録   /する/しない/選択    \n}|
  331.             {s詳細設定処理           /  ｱｸｾｽ方法  /ﾒｰﾙ詳細設定\n}|
  332.             {s                       /天気予報地域/ ｱｯﾌﾟ･ﾀﾞｳﾝ \n}|
  333.             {s                             / 設定 / 取消 },
  334.             limit,liblist,exlib,rtnlst,fmnews,ust2,guest,mfrm,
  335.             topon,freetime,Frec);
  336.         limit:=    @head(@getline(a,1,1),{\n});
  337.         liblist:=@head(@getline(a,2,1),{\n});
  338.         exlib:=    @head(@getline(a,3,1),{\n});
  339.         rtnlst:=@head(@getline(a,4,1),{\n});
  340.         fmnews:=@head(@getline(a,5,1),{\n});
  341.         ust2:=    @head(@getline(a,6,1),{\n});
  342.         guest:=    @head(@getline(a,7,1),{\n});
  343.         mfrm:=    @head(@getline(a,8,1),{\n});
  344.         topon:=@head(@getline(a,9,1),{\n});
  345.         freetime:=@head(@getline(a,10,1),{\n});
  346.         Frec:=    @head(@getline(a,11,1),{\n});
  347.         %sel    @head(@getline(a,12,1),{\n});
  348.         %sel1    @head(@getline(a,13,1),{\n});
  349.         %ok    @head(@getline(a,14,1),{\n});
  350.         case    (sel,
  351.             { 1},{setACCESS;im({Yes})},
  352.             { 2},{setMAIL;im({Yes})}
  353.             );
  354.         case    (sel1,
  355.             { 1},{setWTHR;im({Yes})},
  356.             { 2},{setOTHER;im({Yes})}
  357.             );
  358.         case    (ok,
  359.             { 1},
  360.             {
  361.             REDIAL:=@case(redial,{ 1},{im({5})},{ 2},{im({10})},
  362.                 { 3},{im({30})},{ 4},{im({9999})},
  363.                 ,{im({9999})});
  364.             AP3:=@case(ap3,    { 1},{im({Yes})},{ 2},{im({No})},
  365.                 ,{im({No})});
  366.             RD3SPEED:=@case(rd3speed,{ 1},{im({4800})},
  367.                 { 2},{im({9600})},{ 3},{im({19200})},
  368.                 ,{im({4800})});
  369.             LIMIT:=@case(limit,{ 1},{im({200})},{ 2},{im({500})},
  370.                 { 3},{im({1000})},{ 4},{im({})},,{im({})});
  371.             LIBLIST:=@case(liblist,{ 1},{im({Yes})},
  372.                 { 2},{im({No})},,{im({No})});
  373.             EXLIB:=@case(exlib,{ 1},{im({Yes})},{ 2},{im({Sea})},
  374.                 { 3},{im({No})},,{im({No})});
  375.             PAD:=    @case(pad,
  376.                 { 1},{im({forum})},{ 2},{im({first})},
  377.                 { 3},{im({last})},{ 4},{im({None})},
  378.                 ,{PAD:={None}});
  379.             RTNLST:=@case(rtnlst,{ 1},{im({Yes})},
  380.                 { 2},{im({No})},,{im({Yes})});
  381.             MAILDEL:=@case(maildel,{ 1},{im({Yes})},
  382.                 { 2},{im({No})},,{im({No})});
  383.             CHKSDL:=@case(chksdl,{ 1},{im({Yes})},{ 2},{im({No})},
  384.                 ,{im({No})});
  385.             FMNEWS:=@case(fmnews,{ 1},{im({Yes})},{ 2},{im({No})},
  386.                 ,{im({No})});
  387.             READNEW:=@case(readnew,{ 1},{im({Yes})},
  388.                 { 2},{im({New})},{ 3},{im({Idx})},
  389.                 { 4},{im({No})},,{im({No})});
  390.             WEATHER:=@case(weather,{ 1},{im({Yes})},
  391.                 { 2},{im({No})},,{im({No})});
  392.             CHKBILL:=@case(chkbill,{ 1},{im({Yes})},
  393.                 { 2},{im({Detail})},{ 3},{im({No})},
  394.                 { 4},{im({Sometimes})},,{im({No})});
  395.             UPT:=@case(upt,{ 1},{im({first})},
  396.                 { 2},{im({last})},{ 3},{im({No})},
  397.                 ,{im({first})});
  398.             DNT:=@case(dnt,{ 1},{im({first})},
  399.                 { 2},{im({last})},{ 3},{im({No})},
  400.                 ,{im({first})});
  401.             UST2CMD:=@case(ust2,{ 1},{im({Yes})},
  402.                 { 2},{im({No})},{ 3},{im({Rtc})},
  403.                 ,{im({No})});
  404.             GUESTCMD:=@case(guest,{ 1},{im({Yes})},
  405.                 { 2},{im({No})},{ 3},{im({Owner})},
  406.                 ,{im({No})});
  407.             MFRM:=@case(mfrm,{ 1},{im({Yes})},
  408.                 { 2},{im({No})},,{im({No})});
  409.             TOPON:=@case(topon,{ 1},{im({Yes})},
  410.                 { 2},{im({No})},,{im({No})});
  411.             ACCESS:=access;
  412.             ACCESS2:=access2;
  413.             FREETIME:=freetime;
  414.             FREC:=@case(Frec,{ 1},{im({Yes})},{ 2},{im({No})},
  415.                     { 3},{im({})},,{im({})});
  416.             LASTCHK:=@case(lastchk,{ 1},{im({Yes})},
  417.                 { 2},{im({No})},,{im({Yes})});
  418.             SETTIME:=@case(settime,{ 1},{im({Yes})},
  419.                 { 2},{im({No})},,{im({Yes})});
  420.             FAPXEND:=@case(fapxend,{ 1},{im({stopfapx})},
  421.                 { 2},{im({stopmop})},{ 3},{im({poweroff})},
  422.                 { 4},{im({continue})},,{im({continue})});
  423.             AREA:=area;
  424.             CITY:=city;
  425.             MAILDOWN:=@case    (mail,{ 1},{im({Yes})},
  426.                 { 2},{im({TextOnly})},{ 3},{im({No})},
  427.                 ,{im({Yes})});
  428.             BMAILDWN:=@case    (bmaildwn,{ 1},{im({All})},
  429.                 { 2},{im({Discount})},,{im({All})});
  430.             MAILDEL:=@case(maildel,{ 1},{im({Yes})},
  431.                 { 2},{im({No})},,{im({No})});
  432.             CHKSDL:=@case(chksdl,{ 1},{im({Yes})},{ 2},{im({No})},
  433.                 ,{im({No})});
  434.             MAILBACK:=@case(mailback,{ 1},{im({Yes})},
  435.                 { 2},{im({No})},,{im({No})});
  436.             MAILEXP:=@case(mailexp,{ 1},{im({Yes})},
  437.                 { 2},{im({No})},,{im({No})});
  438.             MAILBACK:=@case(mailback,{ 1},{im({Yes})},
  439.                 { 2},{im({No})},,{im({No})});
  440.             im({No});
  441.             },
  442.             { 2},{im({No})},
  443.             ,{im(!(sel={ 0}&&sel1={ 0}))}
  444.             );
  445.         });
  446.     im({Yes});
  447.     };
  448.  
  449. setPARM;
  450.